<!--#include file="p1.asp" -->
<!DOCTYPE html>
<html>
<head>
  <title></title>
  <meta charset="utf-8">
  <title></title>
  <meta name="renderer" content="webkit">
  <meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">
  <meta name="viewport" content="width=device-width, initial-scale=1.0, minimum-scale=1.0, maximum-scale=1.0, user-scalable=0">
  <link rel="stylesheet" href="/dist/layuiadmin/layui/css/layui.css" media="all">
  <link rel="stylesheet" href="/dist/layuiadmin/style/admin.css" media="all">
  <script src="/dist/layuiadmin/layui/layui.js"></script>
</head>
<body>
<%
m1
Function m1()
	dim fs,f,txt,mystr,i
	dim sql
	dim line

	set fs=Server.CreateObject("Scripting.FileSystemObject") 
	Set f=fs.OpenTextFile(Server.MapPath("upload\" & val("qes")), 1)
	line=0

	do while f.AtEndOfStream = false
		line=line+1
		sql=f.ReadLine
		txt = txt & sql
	loop
	f.Close
	Set f=Nothing
	Set fs=Nothing
	blockquote(txt)
End Function
%>
</body>
</html>